﻿Module Module1

    Sub Main()


        Dim l As Felino = New Leon
        Dim fel As Leon = CType(l, Leon)
        Dowork(l)


    End Sub
    Sub Dowork(ByVal fel As Felino)
        fel.Araniar()
        fel.Comer()
    End Sub
End Module
Public MustInherit Class Felino
    Public nombre As String
    Sub Araniar()
    End Sub
    Overridable Sub Comer()
        Console.WriteLine("felino comiendo")
    End Sub
End Class
Public Class Leon
    Inherits Felino
    Public Sub Rugido()
    End Sub
    Overrides Sub Comer()
        Console.WriteLine("leon cazando")
    End Sub
End Class
Public Class Gato
    Inherits Felino
    Sub Maullar()

    End Sub
End Class